home *** CD-ROM | disk | FTP | other *** search
/ Animation How-To / Animation How-to CD.iso / PLY / CHAPTER7 / ASTEROID / ASTR2.PI < prev    next >
Text File  |  1994-01-01  |  3KB  |  112 lines
  1. // interior blob reflection
  2. // jeff bowermaster 10/21/93
  3.  
  4. include "\ply\colors.inc"
  5.  
  6. include "anim"
  7.  
  8. viewpoint {
  9.    from < frx, fry, frz >
  10.    at   < atx, aty, atz >
  11.    up   < upx, upy, upz >
  12.    angle 65
  13.    resolution 320,200
  14.    aspect 1.433
  15.    }
  16.  
  17.  
  18. background SkyBlue
  19.  
  20. define dim 0.4
  21. define s 8
  22.  
  23. light <dim,dim,dim>,<frx+1,fry+0,frz+0>
  24. light <dim,dim,dim>,<frx+0,fry+1,frz+0>
  25. light <dim,dim,dim>,<frx+0,fry+0,frz+1>
  26.  
  27. light <dim,dim,dim>,<frx-1,fry+0,frz+0>
  28. light <dim,dim,dim>,<frx+0,fry-1,frz+0>
  29. light <dim,dim,dim>,<frx+0,fry+0,frz-1>
  30.  
  31. light <0.3,0.15,0.6>, <frx,fry,frz>
  32.  
  33. define asteroid
  34. object {
  35.    blob 6.6:
  36.       7, 3.0,<  0,  0,  0 >,
  37.       3, 1.0,<  1,  1,  1 >,
  38.       3, 1.0,< -1,  1,  1 >,
  39.       3, 1.0,<  1, -1,  1 >,
  40.       3, 1.0,< -1, -1,  1 >,
  41.       3, 1.0,<  1,  1, -1 >,
  42.       3, 1.0,< -1,  1, -1 >,
  43.       3, 1.0,<  1, -1, -1 >,
  44.       3, 1.0,< -1, -1, -1 >,
  45.       3, 1.0,<  0,  1,  1 >,
  46.       3, 1.0,<  0,  1, -1 >,
  47.       3, 1.0,<  0, -1,  1 >,
  48.       3, 1.0,<  0, -1, -1 >,
  49.       3, 1.0,<  1,  0,  1 >,
  50.       3, 1.0,<  1,  0, -1 >,
  51.       3, 1.0,< -1,  0,  1 >,
  52.       3, 1.0,< -1,  0, -1 >,
  53.       3, 1.0,<  1,  1,  0 >,
  54.       3, 1.0,<  1, -1,  0 >,
  55.       3, 1.0,< -1,  1,  0 >,
  56.       3, 1.0,< -1, -1,  0 >
  57.    root_solver Sturm
  58.    u_steps 20
  59.    v_steps 20
  60.    shiny_coral
  61.    }
  62.  
  63. define collection 
  64. object {
  65.    asteroid {translate <-s,-s,-s>}
  66.  + asteroid {translate <-s,-s, 0>}
  67.  + asteroid {translate <-s,-s, s>}
  68.  
  69.  + asteroid {translate <-s, 0,-s>}
  70.  + asteroid {translate <-s, 0, 0>}
  71.  + asteroid {translate <-s, 0, s>}
  72.  
  73.  + asteroid {translate <-s, s,-s>}
  74.  + asteroid {translate <-s, s, 0>}
  75.  + asteroid {translate <-s, s, s>}
  76.  
  77.  
  78.  + asteroid {translate < 0,-s,-s>}
  79.  + asteroid {translate < 0,-s, 0>}
  80.  + asteroid {translate < 0,-s, s>}
  81.  
  82.  + asteroid {translate < 0, 0,-s>}
  83.  + asteroid {translate < 0, 0, 0>}
  84.  + asteroid {translate < 0, 0, s>}
  85.  
  86.  + asteroid {translate < 0, s,-s>}
  87.  + asteroid {translate < 0, s, 0>}
  88.  + asteroid {translate < 0, s, s>}
  89.  
  90.  
  91.  + asteroid {translate < s,-s,-s>}
  92.  + asteroid {translate < s,-s, 0>}
  93.  + asteroid {translate < s,-s, s>}
  94.  
  95.  + asteroid {translate < s, 0,-s>}
  96.  + asteroid {translate < s, 0, 0>}
  97.  + asteroid {translate < s, 0, s>}
  98.  
  99.  + asteroid {translate < s, s,-s>}
  100.  + asteroid {translate < s, s, 0>}
  101.  + asteroid {translate < s, s, s>}
  102. }
  103.  
  104.  
  105. // main one
  106. asteroid
  107. if(inc==1) {collection {translate <0, 0, -2*s> }}
  108. if(inc==2) {collection {translate < 2*s, 0, 0> }}
  109.  
  110.  
  111. //object { box <-s,-s,-s>,<s,s,s> mirror }
  112.